PC World Komputer 1997 November/Pcwk1197.iso/LOTUS/Eng-ins/SMASTERS/APPROACH/DB2WWW.MPR/SCRIPT/ApproachDoc/Web Background/Body/PicGrenSwrl.s

Null Bytes Alternating | 1997-01-09 | 2KB | 27 lines

'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Picture, X As Long, Y As Long, Flags As Long)
Declare Sub NewWinTitle

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
    Static Source As PICTURE
    Set Source = Bind(Objectname_)
    On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Picture, X As Long, Y As Long, Flags As Long)
    GetWebTemplate(Source.name)
End Sub
'++LotusScript Development Environment:2:2:NewWinTitle:1:8
Sub NewWinTitle
    'Rename the window title for the dialogue so that it has the title we want instead of the apr file name
    Dim activeWin As Integer, winTitle As String
    activeWin% = GetActiveWindow()
    winTitle$ = "Approach"
    SetWindowTextA activeWin%, winTitle$
End Sub